Llamando librerÃas
library(plotly)
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
Leemos datos y agregamos Interpretación de Estatus

gg01_pl$x$data[[2]]$legendgroup
[1] "B. Con IDP"
Agrupando por año
gb02<-base%>%
group_by(aniocons)%>%
mutate(n_px=n()#,
# per_px=round(n_px/nrow(.),4)
)%>%
ungroup()%>%
group_by(aniocons,ESTATUDX)%>%
mutate(n_st_anio=n(),
per_st_anio=round(n_st_anio/n_px,4))%>%
filter(row_number()==1)%>%
select(-Expediente)
gb02

LS0tCnRpdGxlOiAiU3RhdHVzIER4IGRlIGxhIEJhc2UgVUlJRCIKb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6CiAgICBkZl9wcmludDogcGFnZWQKICBodG1sX2RvY3VtZW50OgogICAgZGZfcHJpbnQ6IHBhZ2VkCi0tLQoKIyMgTGxhbWFuZG8gbGlicmVyw61hcwpgYGB7cn0KbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgojIyBMZWVtb3MgZGF0b3MgeSBhZ3JlZ2Ftb3MgSW50ZXJwcmV0YWNpw7NuIGRlIEVzdGF0dXMKYGBge3J9CmJhc2U8LXJlYWQuY3N2KCIuLi9kYXRhL1VJSURfc3RhdHVzZHguY3N2IixoZWFkZXI9VCkKY2xhc3MoYmFzZSkKYmFzZTwtYmFzZSU+JQogIGFzX2RhdGFfZnJhbWUoKSU+JQogIG11dGF0ZShFc3RhdHVzRHg9YXMuY2hhcmFjdGVyKEVTVEFUVURYKSwKICAgICAgICAgRXN0YXR1c0R4PWlmX2Vsc2UoRVNUQVRVRFg9PTAsIkMuIFNpbiBJRFAiLEVzdGF0dXNEeCksCiAgICAgICAgIEVzdGF0dXNEeD1pZl9lbHNlKEVTVEFUVURYPT0xLCJCLiBDb24gSURQIixFc3RhdHVzRHgpLAogICAgICAgICBFc3RhdHVzRHg9aWZfZWxzZShFU1RBVFVEWD09MiwiQS4gSURQIGVuIGVzdHVkaW8iLEVzdGF0dXNEeCkpCmNsYXNzKGJhc2UpCmJhc2UKYGBgCgpgYGB7cn0KZ2cwMTwtZ2dwbG90KGRhdGE9YmFzZSxhZXMoeD1hbmlvY29ucywgZ3JvdXA9RXN0YXR1c0R4LCBmaWxsPUVzdGF0dXNEeCkpICsgCiAgICBnZW9tX2RlbnNpdHkoYWRqdXN0PTEuNSwgcG9zaXRpb249ImZpbGwiKQpnZzAxCmBgYApgYGB7cn0KZ2cwMV9wbDwtZ2dwbG90bHkoZ2cwMSkKZ2cwMV9wbCR4JGRhdGFbWzJdXSRsZWdlbmRncm91cApnZzAxX3BsCmBgYAoKYGBge3J9CmdnMDFfcGwkeCRkYXRhW1syXV0kbGVnZW5kZ3JvdXAKYGBgCgojIyBBZ3J1cGFuZG8gcG9yIGHDsW8KYGBge3J9CmdiMDE8LWJhc2UlPiUKICBncm91cF9ieShhbmlvY29ucyklPiUKICBzdW1tYXJpc2Uobl9weD1uKCksCiAgICAgICAgICAgIHBlcl9weD1yb3VuZChuX3B4L25yb3coLiksNCkpCmdiMDEKYGBgCgpgYGB7cn0KZ2IwMjwtYmFzZSU+JQogIGdyb3VwX2J5KGFuaW9jb25zKSU+JQogIG11dGF0ZShuX3B4PW4oKSMsCiAgICAgICAgICMgcGVyX3B4PXJvdW5kKG5fcHgvbnJvdyguKSw0KQogICAgICAgICApJT4lCiAgdW5ncm91cCgpJT4lCiAgZ3JvdXBfYnkoYW5pb2NvbnMsRVNUQVRVRFgpJT4lCiAgbXV0YXRlKG5fc3RfYW5pbz1uKCksCiAgICAgICAgIHBlcl9zdF9hbmlvPXJvdW5kKG5fc3RfYW5pby9uX3B4LDQpKSU+JQogIGZpbHRlcihyb3dfbnVtYmVyKCk9PTEpJT4lCiAgc2VsZWN0KC1FeHBlZGllbnRlKQoKZ2IwMgpgYGAKCmBgYHtyfQpnZzAxPC1nZ3Bsb3QoZGF0YT1nYjAyKQpnZzAxPC1nZzAxKwogIGdlb21fYmFyKGFlcyh4PWFuaW9jb25zLHk9cGVyX3N0X2FuaW8pKQpnZzAxCgpnZ3Bsb3QoZGF0YT1iYXNlJT4lbXV0YXRlKEVzdGF0dXNEeD0pLGFlcyh4PWFuaW9jb25zLCBncm91cD1Fc3RhdHVzRHgsIGZpbGw9RXN0YXR1c0R4KSkgKyAKICAgIGdlb21fZGVuc2l0eShhZGp1c3Q9MS41LCBwb3NpdGlvbj0iZmlsbCIpCmBgYAoKYGBge3J9CgpgYGAKCmBgYHtyfQoKYGBgCgpgYGB7cn0KCmBgYAoKYGBge3J9CgpgYGAKCmBgYHtyfQoKYGBgCgpgYGB7cn0KCmBgYAoK